home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00022_Script_copy the box < prev    next >
Text File  |  1997-07-29  |  1KB  |  45 lines
  1. on mousedown
  2.   shift_down
  3. end
  4.  
  5. on mouseUp
  6.   cursor 0
  7.   cursor 200
  8.   repeat with x in ["i_copy_2","i_copy_3","i_copy_1"]
  9.     set the castnum of sprite the clickon = cast x
  10.     updatestage
  11.     starttimer
  12.     repeat while the timer < 20
  13.     end repeat
  14.   end repeat
  15.   cursor 0
  16.   
  17.   global clipcast, cliptitle, sub_open
  18.   global imp_it
  19.   
  20.   if imp_it then set clipcast = the name of cast (the castnum of sprite 19) of castlib "text"
  21.   if the framelabel contains "issw" then set clipcast = "issue text"
  22.  
  23.   --  copytoclipboard cast clipcast
  24.   
  25.   set copyRightNotice = ¼
  26. return&return&"____________________________________" & return ¼
  27. & "from the Prime Ministers of Canada CD-ROM" & return¼
  28. & "Copyright ⌐1996, 1997 ExCITE, Simon Fraser University"
  29.   
  30.   if the selection = 0 then
  31.     set theText to the text of field clipcast
  32.   else
  33.     set theText to the selection
  34.   end if
  35.   
  36.   case true of
  37.       -- need a set of cases to handle where copying from
  38.     otherwise
  39.       set theTitle to ""
  40.   end case
  41.   
  42.   
  43.   set the text of member "clipbuffer" to theTitle &  theText & copyrightNotice
  44.   copytoclipboard cast "clipbuffer"
  45. end